HTBasic 9.3/HTBasic 9.3.iso/FLOPPY/60DOS/DISK2/INSTALL.DAT

Text File | 2001-03-02 | 10.5 KB | 271 lines

@DefineDisk
    @Label = "HTBasic for DOS Disk 2"
    @If(@OptionIsSet(@DataAcqFiles))
        @BeginLib HTSCOPE.RED
            @File HTSCOPE.IST @Size 250
            @File HTSCOPE.CFG @Size 151
            @File SETUP.EXE @Size 124994
            @File HTSCOPE.HLP @Size 4892
            @File HTSCOPE.HTB @Size 62830
            @File CARDS.INF @Size 15489
            @File HTSCOPE.BAT @Size 22
        @EndLib
        @BeginLib EXAMPLE.RED
            @File AI1.BAS @Size 307
            @File AI2.BAS @Size 449
            @File AI3.BAS @Size 1221
            @File AI4.BAS @Size 807
            @File AI5.BAS @Size 1366
            @File AO1.BAS @Size 241
            @File AO2.BAS @Size 887
            @File AO3.BAS @Size 892
            @File AO4.BAS @Size 563
            @File CHKRATE.BAS @Size 13635
            @File AITRANS1.BAS @Size 254
            @File AITRANS2.BAS @Size 1663
            @File DI1.BAS @Size 521
            @File DI2.BAS @Size 1347
            @File DO1.BAS @Size 470
            @File GRAPH.BAS @Size 1180
            @File INT.BAS @Size 639
            @File MINPER.BAS @Size 1403
            @File REG.BAS @Size 779
            @File SQ.BAS @Size 249
            @File AOTRANS1.BAS @Size 510
        @EndLib
    @EndIf // DataAcqFiles

    @If(@OptionIsSet(@OtherSupportFiles))
        @BeginLib PROGDRV.RED
            @File HTB.HLP @Size 389202
            @File HTB386.PIF @Size 545
            @File PHARLAP.386 @Size 9343
            @File EGA.D36 @Size 12870
            @File ATI.D36 @Size 16770
            @File CANON.D36 @Size 1912
            @File CFIG386.EXE @Size 47600
            @File CGA.D36 @Size 10746
            @File DSK-JETC.D36 @Size 2104
            @File DXF.D36 @Size 6268
            @File EPSON.D36 @Size 2148
            @File EPSON24.D36 @Size 2168
            @File GIF.D36 @Size 4096
            @File GPIBH.D36 @Size 17844
            @File GPIBN.D36 @Size 22100
            @File GPIBP.D36 @Size 19856
            @File GPIO.D36 @Size 8920
            @File GPIO16.D36 @Size 14444
            @File HGC.D36 @Size 14022
            @File HPGL.D36 @Size 7100
            @File HP-PCL.D36 @Size 1888
            @File HP-PCLC.D36 @Size 2592
            @File KBD.D36 @Size 2272
            @File KBDA.D36 @Size 2156
            @File MGA.D36 @Size 10790
            @File PCL.D36 @Size 6724
            @File PCX.D36 @Size 2564
            @File PS.D36 @Size 8192
            @File PS-DUMP.D36 @Size 6260
            @File S3.D36 @Size 16954
            @File SVGA16.D36 @Size 13618
            @File SVGA16B.D36 @Size 14858
            @File SVGA256.D36 @Size 18138
            @File TABLET.D36 @Size 2468
            @File VGA.D36 @Size 12966
            @File VGAB.D36 @Size 12118
            @File DEMO @Size 71192
            @File AUTOST @Size 4954 @AskOverwrite
            @File CHECKPRN.EXE @Size 7459
            @File README.DAQ @Size 5824
            @File TITLE2.DAT @Size 47916
            @File HPPURGE.EXE @Size 11385
            @File HPCOPY.EXE @Size 21945
            @File HPCAT.EXE @Size 10839
            @File ASCIIDOS.BAS @Size 329
            @File DEMO.DAT @Size 20828
            @File DEMO.BAS @Size 68818
            @File HTB386.ICO @Size 2238
            @File HTBDEMO.ICO @Size 766
            @File HPCOPY.ICO @Size 2238
            @File HPPURGE.ICO @Size 2238
            @File HPCAT.ICO @Size 2238
            @File UNINSTAL.ICO @Size 766
            @File GPIB.D36 @Size 28008
            @File HPGL2.D36 @Size 11400
            @File SERIAL.D36 @Size 14148
            @File DISTRIB.TXT @Size 219
            @File README.1ST @Size 6117
            @File SUPPORT @Size 5372
        @EndLib
    @EndIf // OtherSupportFiles

    @If(@OptionIsSet(@NoCOMPLEXFiles))
        @BeginLib NOCPX.RED
            @File HTB386.EXE @Size 471183
            @File HTBNO387.EXE @Size 498815
        @EndLib
    @EndIf // NoCOMPLEXFiles

    @If(@OptionIsSet(@LexicalFiles))
        @BeginLib LEXICAL.RED
            @File HP2PC.BAS @Size 6575
            @File HP200.FNT @Size 3584
            @File PCASCII.LEX @Size 1036
            @File HPASCII.LEX @Size 1036
            @File HPFRENCH.LEX @Size 1038
            @File HPGERMAN.LEX @Size 1040
            @File HPSPANIS.LEX @Size 1064
            @File HPSWEDIS.LEX @Size 1040
            @File PCFRENCH.LEX @Size 1038
            @File PCGERMAN.LEX @Size 1040
            @File PCSPANIS.LEX @Size 1064
            @File PCSWEDIS.LEX @Size 1040
            @File LABELCHR.BAS @Size 4144
            @File USERDEF.BAS @Size 439
            @File LEXICAL.BAS @Size 407
            @File PC850.FNT @Size 3584
            @File HP200.KBD @Size 516
            @File SETKBD.BAS @Size 256
            @File LOADFNT.COM @Size 2268
            @File R8FRENCH.LEX @Size 1050
            @File R8GERMAN.LEX @Size 1062
            @File R8SPANIS.LEX @Size 1074
            @File R8SWEDIS.LEX @Size 1050
            @File R8ASCII.LEX @Size 1048
            @File PCTOR8.KBD @Size 516
        @EndLib
    @EndIf // LexicalFiles

@EndDisk

@If(@Platform >= @WIN)
    @CreateGroup("@GrpName")
    @ShowGroup("@GrpName",1)

    @If(@UseUNINSTALL)
        @DeleteIcon("@GrpName", "UN-Install")
        @AddIcon("@GrpName", "@OutDrive:\\@Subdir\\Uninstal.exe -f @UIScriptPath\\REMOVE.DAT", "UN-Install", "@Outdrive:\\@Subdir\\uninstal.exe", 1, "@UIScriptPath", 0)
    @EndIf

    @If(@Exists("@OutDrive:\\@SubDir\\HTB386.EXE") &&
        @Exists("@OutDrive:\\@SubDir\\HTB386.ICO"))
        @DeleteIcon("@GrpName", "HTB386")
        @AddIcon("@GrpName", "@Outdrive:\\@Subdir\\htb386.exe", "HTB386", "@Outdrive:\\@Subdir\\HTB386.ico", 0, "@Outdrive:\\@Subdir", 0)
    @EndIf
    @If(@Exists("@OutDrive:\\@SubDir\\HTB386.EXE") &&
        @Exists("@OutDrive:\\@SubDir\\HTBDEMO.ICO")&&
        @Exists("@OutDrive:\\@SubDir\\DEMO.BAS"))
        @DeleteIcon("@GrpName", "HTBDEMO")
        @AddIcon("@GrpName", "@Outdrive:\\@Subdir\\htb386.exe -ALT DEMO.BAS", "HTBDEMO", "@Outdrive:\\@Subdir\\HTBdemo.ico", 0, "@Outdrive:\\@Subdir", 0)
    @EndIf
    @If(@Exists("@OutDrive:\\@SubDir\\HTB386C.EXE") &&
        @Exists("@OutDrive:\\@SubDir\\HTB386.ICO"))
        @DeleteIcon("@GrpName", "HTB386C")
        @AddIcon("@GrpName", "@Outdrive:\\@Subdir\\htb386c.exe", "HTB386C", "@Outdrive:\\@Subdir\\HTB386.ico", 0, "@Outdrive:\\@Subdir", 0)
    @EndIf
    @If(@Exists("@OutDrive:\\@SubDir\\HTBN387C.EXE") &&
        @Exists("@OutDrive:\\@SubDir\\HTB386.ICO"))
        @DeleteIcon("@GrpName", "HTBN387C")
        @AddIcon("@GrpName", "@Outdrive:\\@Subdir\\htbn387c.exe", "HTBN387C", "@Outdrive:\\@Subdir\\HTB386.ico", 0, "@Outdrive:\\@Subdir", 0)
    @EndIf
    @If(@Exists("@OutDrive:\\@SubDir\\HTBNO387.EXE") &&
        @Exists("@OutDrive:\\@SubDir\\HTB386.ICO"))
        @DeleteIcon("@GrpName", "HTBNO387")
        @AddIcon("@GrpName", "@Outdrive:\\@Subdir\\htbno387.exe", "HTBNO387", "@Outdrive:\\@Subdir\\HTB386.ico", 0, "@Outdrive:\\@Subdir", 0)
    @EndIf
    @If(@Exists("@OutDrive:\\@SubDir\\HPCAT.EXE") &&
        @Exists("@OutDrive:\\@SubDir\\HPCAT.ICO"))
        @DeleteIcon("@GrpName", "HPCAT")
        @AddIcon("@GrpName", "@Outdrive:\\@Subdir\\hpcat.exe /Q", "HPCAT", "@Outdrive:\\@Subdir\\hpcat.ico", 0, "@Outdrive:\\@Subdir", 0)
    @EndIf
    @If(@Exists("@OutDrive:\\@SubDir\\HPCOPY.EXE") &&
        @Exists("@OutDrive:\\@SubDir\\HPCOPY.ICO"))
        @DeleteIcon("@GrpName", "HPCOPY")
        @AddIcon("@GrpName", "@Outdrive:\\@Subdir\\hpcopy.exe /Q", "HPCOPY", "@Outdrive:\\@Subdir\\hpcopy.ico", 0, "@Outdrive:\\@Subdir", 0)
    @EndIf
    @If(@Exists("@OutDrive:\\@SubDir\\HPPURGE.EXE") &&
        @Exists("@OutDrive:\\@SubDir\\HPPURGE.ICO"))
        @DeleteIcon("@GrpName", "HPPURGE")
        @AddIcon("@GrpName", "@Outdrive:\\@Subdir\\hppurge.exe /Q", "HPPURGE", "@Outdrive:\\@Subdir\\hppurge.ico", 0, "@Outdrive:\\@Subdir", 0)
    @EndIf
@EndIf

// Write out registration information:
@Write("@OutDrive:\\@Subdir\\htbbma.bib", "WT", "@qDefaultSerial\n")
@DisableEventMap(@WriteEvent)
    @Write("@OutDrive:\\@Subdir\\htbbma.bib", "AT" ,"@qDefaultName\n")
    @Write("@OutDrive:\\@Subdir\\htbbma.bib", "AT" ,"@qDefaultCompany\n")
@EnableEventMap(@WriteEvent)

@FileAttr("@OutDrive:\\@Subdir\\htbbma.bib", "h+r+")

@if(@Platform >= @Win)
    @If(@SetINIKey("386Enh","device","@OutDrive:\\@Subdir\\","pharlap.386","@WinSystemDrive:\\@WinDir\\","SYSTEM.INI"))
        @DisableEventMap(@WriteEvent)
            @Write("@UIScriptPath\\BODY.DAT", "PT", "@@RemoveINIKey(\"386Enh\",\"device\",\"@@OutDrive:\\\\@@Subdir\\\\\",\"pharlap.386\",\"@@WinSystemDrive:\\\\@@WinDir\\\\\",\"system.ini\")\n")
        @EnableEventMap(@WriteEvent)
        @INIChanged = @True
    @Else
        @INIChanged = @False
    @EndIf
@EndIf

@SetCursor("ARROW")

@If(@UseUNINSTALL)
    @FinishUIScript("@UIScriptPath")
    @Copy("@UIScriptPath\\INSTALL.DAT", "@OutDrive:\\@Subdir\\remove.dat")
@EndIf

@DisableEventMap(@DeleteEvent)
    @Delete("@BootDrive:\\instrun.exe")
    @Delete("@BootDrive:\\winstrun.exe")
@EnableEventMap(@DeleteEvent)

@If(@Platform < @Win)
    @Display
    @Cls
    @Name install is complete.  The files
    have been installed in the directory:

        @OutDrive:@Subdir

    @Pause
    @Exit
//  @Abort
    @EndDisplay
@Else  // If Windows
    @If(@INIChanged)
        @Button100 = 0
        @Button110 = 0
        @BeginWinDialog("RESTART_WINDOWS","Restart Windows?")
            @Button(100, "&Exit")
            @Button(110, "&Restart")
            @EditBox(300, "@OutDrive:\\@Subdir")
            @StaticText(301, "@Name install is complete.  The files have been installed in the directory:\n\n   @Outdrive:\\@Subdir")
        @executeDialog
            @Button100 = @Button(100)
            @Button110 = @Button(110)
        @endwindialog
        @If(@Button100)  //exit
            @Exit
        @Else  // If(Button(110) - Restart Windows
            @WinExit(1)
            @Exit
        @EndIf // Button
    @Else
        @Button100 = 0
        @Button110 = 0
        @BeginWinDialog("FINISH_WINDOWS", "Installation Complete.")
            @Button(110, "&OK")
            @EditBox(300, "@OutDrive:\\@Subdir")
            @StaticText(301, "@Name install is complete.  The files have been installed in the directory:\n\n   @Outdrive:\\@Subdir")
        @executeDialog
            @Button110 = @Button(110)
        @endwindialog
        @Exit
    @EndIf // INIChanged
@EndIf  // Platform
// end-of-file